BEGIN "DSK:corls.god[DIA,HPM]"
REQUIRE "GRAHDR.SAI[GOD,HPM]" SOURCE_FILE;
INTEGER FJ;
PROCEDURE TLINE(REAL X,Y,XX,YY; INTEGER T);
   BEGIN
   DRKEN; LINE(X,Y,XX,YY,7);
   LITEN; LINE(X,Y,XX,YY,3);
   END;
FJ←FILJOB("DSK:corls.god[DIA,HPM]");
 DDINIT;
 SCREEN(.00000,1.0000,1.0000,.00000);
 PICFIL(.00000,1.0000,1.0000,.00000,"U:SEPT.5[DIA,HPM]");
 LITEN;
 LINE(.00000,.00000,.00000,1.0000,3);
 LINE(1.0000,1.0000,.00000,1.0000,3);
 LINE(1.0000,1.0000,1.0000,.00000,3);
 LINE(.00000,.00000,1.0000,.00000,3);
 LITEN;
 TLINE(.43750,.00000,.43750,.73333,0);
 TLINE(.43750,.73333,1.0625,.73333,0);
 TLINE(1.0625,.73333,1.0625,.00000,0);
 TLINE(1.0625,.00000,.43750,.00000,0);
 LITEN;
 TLINE(.62500,.16667,.62500,.53333,0);
 TLINE(.62500,.53333,.96875,.53333,0);
 TLINE(.96875,.53333,.96875,.16667,0);
 TLINE(.96875,.16667,.62500,.16667,0);
 LITEN;
 TLINE(.70313,.25000,.70313,.43333,0);
 TLINE(.70313,.43333,.87500,.43333,0);
 TLINE(.87500,.43333,.87500,.25000,0);
 TLINE(.87500,.25000,.70313,.25000,0);
 LITEN;
 TLINE(.75000,.30000,.75000,.39167,0);
 TLINE(.75000,.39167,.83594,.39167,0);
 TLINE(.83594,.39167,.83594,.30000,0);
 TLINE(.83594,.30000,.75000,.30000,0);
 LITEN;
 TLINE(.77344,.32500,.77344,.37083,0);
 TLINE(.77344,.37083,.81641,.37083,0);
 TLINE(.81641,.37083,.81641,.32500,0);
 TLINE(.81641,.32500,.77344,.32500,0);
 DPYUP(-1,-1);
KILJOB(FJ);
END ;